Build an alist for completing-read as in 20.7.

diff --git a/lisp/generic.el b/lisp/generic.el
index e08b4ad371c380e1f9cc94f72c1d090f19b0e561..f17e2c0814d9c00fca032915c9646fb538778a8e 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -173,7 +173,7 @@ Used to determine if files in fundamental mode should be put into
 (defsubst generic-read-type ()
   (completing-read
    "Generic Type: "
-   generic-mode-list
+   (mapcar (lambda (elt) (list (symbol-name (car elt))))
    nil t))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;